home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib04.dsk / TEXTFILE WRITER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  552b  |  12 lines
  1. 10  REM  TEXTFILE WRITER
  2. 15  REM  BY AL EVANS, 1980
  3. 20 D$ =  CHR$(4):I$ = ""
  4. 30 F$ = "PAINTBOX INSTRUCTIONS": REM  NAME OF FILE TO BE WRITTEN
  5. 50  PRINT D$;"OPEN";F$: PRINT D$;"DELETE";F$: PRINT D$;"OPEN";F$
  6. 60  GET CH$: PRINT CH$;
  7. 65  IF CH$ =  CHR$(21)  AND I$ < >""  THEN I$ =  LEFT$(I$, LEN(I$) -1): POKE 36, POS(0) -1
  8. 70  IF CH$ < > CHR$(13)  THEN I$ = I$ +CH$: GOTO 60
  9. 75  IF I$ = "<FINISHED>"  THEN 100
  10. 80  PRINT D$: PRINT D$;"APPEND";F$: PRINT D$;"WRITE";F$: PRINT I$:I$ = "": GOTO 60
  11. 100  PRINT : PRINT D$;"CLOSE";F$
  12. 105  PRINT "FINISHED": END